home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / vol7n1.arc / HELP.BAS < prev    next >
BASIC Source File  |  1987-12-08  |  17KB  |  252 lines

  1. 100 REM -- BASIC PROGRAM TO CREATE help.COM
  2. 110 OPEN "help.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  231 
  6. 150    LINESUM = 0
  7. 155    PRINT ".";
  8. 160    FOR J = 1 TO 8
  9. 170       READ BYTE
  10. 180       CHECKSUM = CHECKSUM + BYTE
  11. 190       LINESUM = LINESUM + BYTE
  12. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  13. 210       PUT #1
  14. 220    NEXT J
  15. 230    READ LINECHECK
  16. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  17. 250 NEXT I
  18. 260 CLOSE
  19. 270 IF CHECKSUM = 173460 THEN PRINT "Successful Completion!" : END
  20. 280 PRINT "COM file is not valid!" : END
  21. 290 DATA    233,   195,     3,    72,    69,    76,    80,    32,   760
  22. 300 DATA     49,    46,    48,    32,    40,    99,    41,    32,   387
  23. 310 DATA     49,    57,    56,    55,    32,    90,   105,   102,   546
  24. 320 DATA    102,    32,    67,   111,   109,   109,   117,   110,   757
  25. 330 DATA    105,    99,    97,   116,   105,   111,   110,   115,   858
  26. 340 DATA     32,    67,   111,    46,    13,    10,    83,   117,   479
  27. 350 DATA     99,    99,   101,   115,   115,   102,   117,   108,   856
  28. 360 DATA    108,   121,    32,   105,   110,   115,   116,    97,   804
  29. 370 DATA    108,   108,   101,   100,    13,    10,    80,   114,   634
  30. 380 DATA    101,   115,   115,    32,    65,   108,   116,    32,   684
  31. 390 DATA     72,    32,   116,   111,    32,    97,    99,   116,   675
  32. 400 DATA    105,   118,    97,   116,   101,    10,     0,    26,   573
  33. 410 DATA     77,   105,    99,   104,    97,   101,   108,    32,   723
  34. 420 DATA     74,    46,    32,    77,   101,   102,   102,   111,   645
  35. 430 DATA    114,   100,     0,     0,     0,     0,     0,     0,   214
  36. 440 DATA      0,     0,     0,   176,    25,     0,     0,   240,   441
  37. 450 DATA      3,     0,     0,     0,     0,     0,    35,     0,    38
  38. 460 DATA      0,     0,     1,     4,     0,     0,     9,    32,    46
  39. 470 DATA     13,    44,    59,    47,    10,    85,   115,    97,   470
  40. 480 DATA    103,   101,    58,    32,    32,    72,    69,    76,   543
  41. 490 DATA     80,    32,   102,   105,   108,   101,   115,   112,   755
  42. 500 DATA    101,    99,    32,    91,    46,    46,    46,    32,   493
  43. 510 DATA    102,   105,   108,   101,   115,   112,   101,    99,   843
  44. 520 DATA     93,    91,    47,    78,   110,    93,    91,    47,   650
  45. 530 DATA     72,   110,    93,    91,    47,    80,    93,    32,   618
  46. 540 DATA    124,    32,    91,    47,    85,    93,    13,    10,   495
  47. 550 DATA     10,    47,    78,   110,    32,   119,   104,   101,   601
  48. 560 DATA    114,   101,    32,   110,    32,    61,    32,   110,   592
  49. 570 DATA    117,   109,    98,   101,   114,    32,   111,   102,   784
  50. 580 DATA     32,   114,   101,   115,   101,   114,   118,   101,   796
  51. 590 DATA    100,    32,   112,    97,   103,   101,   115,    32,   692
  52. 600 DATA     40,    49,    45,    49,    52,    41,    59,    32,   367
  53. 610 DATA    100,   101,   102,    97,   117,   108,   116,    32,   773
  54. 620 DATA     61,    32,    52,    13,    10,    47,    72,   110,   397
  55. 630 DATA     32,   119,   104,   101,   114,   101,    32,   110,   713
  56. 640 DATA     32,    61,    32,    65,   108,   116,    32,   104,   550
  57. 650 DATA    111,   116,    32,   107,   101,   121,    32,    99,   719
  58. 660 DATA    111,   109,    98,   111,    32,    40,    65,    45,   611
  59. 670 DATA     90,    44,    48,    45,    57,    44,    34,    45,   407
  60. 680 DATA     34,    44,    34,    61,    34,    41,    59,    32,   339
  61. 690 DATA    100,   101,   102,    97,   117,   108,   116,    32,   773
  62. 700 DATA     61,    32,    72,    13,    10,    47,    80,    32,   347
  63. 710 DATA     32,    61,    32,   105,   109,   109,   101,   100,   649
  64. 720 DATA    105,    97,   116,   101,    32,   112,   111,   112,   786
  65. 730 DATA     45,   117,   112,    13,    10,    47,    85,    32,   461
  66. 740 DATA     32,    61,    32,   117,   110,   105,   110,   115,   682
  67. 750 DATA    116,    97,   108,   108,    13,    10,    10,    85,   547
  68. 760 DATA    115,   101,    58,    32,    80,   103,    85,   112,   686
  69. 770 DATA     32,    80,   103,    68,   110,    32,    72,   111,   608
  70. 780 DATA    109,   101,    32,    69,   110,   100,    32,   116,   669
  71. 790 DATA    111,    32,   110,    97,   118,   105,   103,    97,   773
  72. 800 DATA    116,   101,    32,   116,   104,   114,   111,   117,   811
  73. 810 DATA    103,   104,    32,    72,    69,    76,    80,    13,   549
  74. 820 DATA     10,    32,    32,    32,    32,    32,    69,    83,   322
  75. 830 DATA     67,    32,   111,   114,    32,   104,   111,   116,   687
  76. 840 DATA     32,   107,   101,   121,    32,   116,   111,    32,   652
  77. 850 DATA    101,   120,   105,   116,    10,     0,    32,    97,   581
  78. 860 DATA     99,   116,   105,   118,   101,    32,   112,    97,   780
  79. 870 DATA    103,   101,    40,   115,    41,    13,    10,     0,   423
  80. 880 DATA     32,   116,   111,   116,    97,   108,    32,   112,   724
  81. 890 DATA     97,   103,   101,    40,   115,    41,    13,    10,   520
  82. 900 DATA     10,     0,    10,    72,    69,    76,    80,    32,   349
  83. 910 DATA     99,    97,   110,    39,   116,    32,    98,   101,   692
  84. 920 DATA     32,   117,   110,   105,   110,   115,   116,    97,   802
  85. 930 DATA    108,   108,   101,   100,    46,    13,    10,    85,   571
  86. 940 DATA    110,   105,   110,   115,   116,    97,   108,   108,   869
  87. 950 DATA     32,   114,   101,   115,   105,   100,   101,   110,   778
  88. 960 DATA    116,    32,   112,   114,   111,   103,   114,    97,   799
  89. 970 DATA    109,   115,    32,   105,   110,    32,   114,   101,   718
  90. 980 DATA    118,   101,   114,   115,   101,    32,   111,   114,   806
  91. 990 DATA    100,   101,   114,    46,    10,     0,    10,    72,   453
  92. 1000 DATA    69,    76,    80,    32,   117,   110,   105,   110,   699
  93. 1010 DATA   115,   116,    97,   108,   108,   101,   100,    10,   755
  94. 1020 DATA     0,    84,   111,   111,    32,   109,    97,   110,   654
  95. 1030 DATA   121,    32,   114,   101,   115,   105,   100,   101,   789
  96. 1040 DATA   110,   116,    32,   112,   114,   111,   103,   114,   812
  97. 1050 DATA    97,   109,   115,     0,    32,   110,   111,   116,   690
  98. 1060 DATA    32,   102,   111,   117,   110,   100,    13,    10,   595
  99. 1070 DATA     0,    78,   111,   116,    32,   101,   110,   111,   659
  100. 1080 DATA   117,   103,   104,    32,   109,   101,   109,   111,   786
  101. 1090 DATA   114,   121,     0,    77,   101,   109,   111,   114,   747
  102. 1100 DATA   121,    32,    97,   108,   108,   111,    99,    97,   773
  103. 1110 DATA   116,   105,   111,   110,    32,   101,   114,   114,   803
  104. 1120 DATA   111,   114,    13,    10,     0,    45,   130,    48,   471
  105. 1130 DATA   129,    49,   120,    50,   121,    51,   122,    52,   694
  106. 1140 DATA   123,    53,   124,    54,   125,    55,   126,    56,   716
  107. 1150 DATA   127,    57,   128,    61,   131,    65,    30,    66,   665
  108. 1160 DATA    48,    67,    46,    68,    32,    69,    18,    70,   418
  109. 1170 DATA    33,    71,    34,    72,    35,    73,    23,    74,   415
  110. 1180 DATA    36,    75,    37,    76,    38,    77,    50,    78,   467
  111. 1190 DATA    49,    79,    24,    80,    25,    81,    16,    82,   436
  112. 1200 DATA    19,    83,    31,    84,    20,    85,    22,    86,   430
  113. 1210 DATA    47,    87,    17,    88,    45,    89,    21,    90,   484
  114. 1220 DATA    44,   251,   156,    46,   255,    30,   114,     1,   897
  115. 1230 DATA   156,    30,     6,    80,    83,    81,    82,    86,   604
  116. 1240 DATA    87,    85,    14,    31,   252,   184,    64,     0,   717
  117. 1250 DATA   142,   192,    38,   161,    74,     0,   163,   118,   888
  118. 1260 DATA     1,    38,   161,    99,     0,     5,     6,     0,   310
  119. 1270 DATA   163,   120,     1,    61,   186,     3,   116,     6,   656
  120. 1280 DATA   199,     6,   122,     1,     0,   184,    38,   160,   710
  121. 1290 DATA    73,     0,    60,     3,   118,     4,    60,     7,   325
  122. 1300 DATA   117,    30,   128,    62,   125,     1,     1,   116,   580
  123. 1310 DATA    29,   128,    62,   126,     1,     1,   116,    16,   479
  124. 1320 DATA   180,     1,   205,    22,   116,    10,    60,     0,   594
  125. 1330 DATA   117,     6,    58,    38,   134,     1,   116,     2,   472
  126. 1340 DATA   235,   113,   180,     0,   205,    22,   198,     6,   959
  127. 1350 DATA   126,     1,     1,   198,     6,   125,     1,     0,   458
  128. 1360 DATA   232,    88,     3,   138,    14,   138,     1,   254,   868
  129. 1370 DATA   201,   232,     5,     3,   139,   242,   232,   143,  1197
  130. 1380 DATA     3,   180,     0,   205,    22,   128,   252,     1,   791
  131. 1390 DATA   116,    57,    58,    38,   134,     1,   116,    51,   571
  132. 1400 DATA   138,    14,   138,     1,   128,   252,    73,   117,   861
  133. 1410 DATA     7,   128,   249,     1,   116,    31,   254,   201,   987
  134. 1420 DATA   128,   252,    81,   117,     8,    58,    14,   140,   798
  135. 1430 DATA     1,   116,    18,   254,   193,   128,   252,    71,  1033
  136. 1440 DATA   117,     2,   177,     1,   128,   252,    79,   117,   873
  137. 1450 DATA     4,   138,    14,   140,     1,   136,    14,   138,   585
  138. 1460 DATA     1,   235,   176,   190,    56,     8,   232,    71,   969
  139. 1470 DATA     3,   198,     6,   125,     1,     0,   198,     6,   537
  140. 1480 DATA   126,     1,     0,    93,    95,    94,    90,    89,   588
  141. 1490 DATA    91,    88,     7,    31,   157,   207,   252,    14,   847
  142. 1500 DATA   143,     6,   129,     1,   131,   252,   253,   119,  1034
  143. 1510 DATA     6,   190,   113,     3,   233,    70,     1,   128,   744
  144. 1520 DATA    62,   128,     0,     0,   117,     6,   190,   148,   651
  145. 1530 DATA     1,   233,    57,     1,   176,    95,   254,   192,  1009
  146. 1540 DATA   180,    53,   205,    33,   131,   251,     0,   117,   970
  147. 1550 DATA    16,   140,   194,   131,   250,     0,   117,     9,   857
  148. 1560 DATA   162,   131,     1,    60,   103,   117,   231,   235,  1040
  149. 1570 DATA    21,   139,   251,   190,     0,     1,   185,    15,   802
  150. 1580 DATA     0,   243,   167,   117,   238,   140,     6,   129,  1040
  151. 1590 DATA     1,   198,     6,   132,     1,     1,   255,    54,   648
  152. 1600 DATA   129,     1,     7,   190,   129,     0,   172,    60,   688
  153. 1610 DATA    13,   116,    99,    60,    47,   117,   247,   172,   871
  154. 1620 DATA    60,    13,   116,    90,   232,   121,     2,    60,   694
  155. 1630 DATA    85,   117,    10,   128,    62,   132,     1,     1,   536
  156. 1640 DATA   117,   228,   233,    56,     1,    60,    78,   117,   890
  157. 1650 DATA    26,   128,    62,   132,     1,     1,   116,   214,   680
  158. 1660 DATA   232,    45,     2,   128,   251,    14,   119,   206,   997
  159. 1670 DATA   128,   251,     0,   116,   201,   136,    30,   139,  1001
  160. 1680 DATA     1,   235,   195,    60,    80,   117,     5,   198,   891
  161. 1690 DATA     6,   133,     1,     1,    60,    72,   117,   182,   572
  162. 1700 DATA   172,    78,   232,    59,     2,   191,   157,     3,   894
  163. 1710 DATA   185,    38,     0,   174,   116,     5,    71,   226,   815
  164. 1720 DATA   250,   235,   163,   162,    80,     1,   138,     5,  1034
  165. 1730 DATA    38,   162,   134,     1,   235,   152,   190,   129,  1041
  166. 1740 DATA     0,   232,     9,     2,   114,    16,   137,    54,   564
  167. 1750 DATA   135,     1,   232,     0,     2,   115,   251,    86,   822
  168. 1760 DATA    80,   232,    79,     1,    88,    94,    60,    13,   647
  169. 1770 DATA   116,    11,    60,    47,   117,   227,   232,   236,  1046
  170. 1780 DATA     1,   115,   251,   235,   241,   160,   141,     1,  1145
  171. 1790 DATA   128,    62,   132,     1,     1,   116,     9,    58,   507
  172. 1800 DATA     6,   139,     1,   118,     3,   162,   139,     1,   569
  173. 1810 DATA    60,     0,   116,    12,    38,   162,   140,     1,   529
  174. 1820 DATA    38,   198,     6,   138,     1,     1,   235,     7,   624
  175. 1830 DATA   128,    62,   132,     1,     1,   117,    24,   128,   593
  176. 1840 DATA    62,   133,     1,     1,   117,    17,    38,   198,   567
  177. 1850 DATA     6,   125,     1,     1,   156,   255,    30,   127,   701
  178. 1860 DATA     1,   179,     0,    60,     0,   116,    51,    60,   467
  179. 1870 DATA     0,   190,   148,     1,   116,    39,    80,   138,   712
  180. 1880 DATA   200,   178,    10,   232,   220,     0,   232,   193,  1265
  181. 1890 DATA     0,   190,   198,     2,   232,   219,     0,    88,   929
  182. 1900 DATA   128,    62,   132,     1,     1,   138,    30,   137,   629
  183. 1910 DATA     1,   116,    15,   128,    62,   131,     1,     0,   454
  184. 1920 DATA   117,    14,   190,    73,     3,   179,     1,   232,   809
  185. 1930 DATA   192,     0,   138,   195,   180,    76,   205,    33,  1019
  186. 1940 DATA   161,    44,     0,   142,   192,   180,    73,   205,   997
  187. 1950 DATA    33,   190,   131,     3,   114,   231,   186,     0,   888
  188. 1960 DATA     1,   160,   131,     1,   180,    37,   205,    33,   748
  189. 1970 DATA   184,     9,    53,   205,    33,   137,    30,   114,   765
  190. 1980 DATA     1,   140,     6,   116,     1,   186,   233,     3,   686
  191. 1990 DATA   184,     9,    37,   205,    33,   138,    14,   139,   759
  192. 2000 DATA     1,   232,   102,     0,   190,   216,     2,   232,   975
  193. 2010 DATA   128,     0,   190,     3,     1,   232,   122,     0,   676
  194. 2020 DATA   232,   254,     0,   177,     4,   211,   234,    66,  1178
  195. 2030 DATA   184,     0,    49,   205,    33,   184,     9,    53,   717
  196. 2040 DATA   205,    33,   129,   251,   233,     3,   190,   234,  1278
  197. 2050 DATA     2,   179,     1,   117,   154,   140,   192,    59,   844
  198. 2060 DATA     6,   129,     1,   117,   146,   142,     6,   129,   676
  199. 2070 DATA     1,   180,    73,   205,    33,   190,   131,     3,   816
  200. 2080 DATA   115,     3,   232,    69,     0,    38,   139,    22,   618
  201. 2090 DATA   114,     1,    38,   142,    30,   116,     1,   184,   626
  202. 2100 DATA     9,    37,   205,    33,    38,   160,   131,     1,   614
  203. 2110 DATA    51,   210,   142,   218,   180,    37,   205,    33,  1076
  204. 2120 DATA    14,    31,   190,    54,     3,   179,     0,   233,   704
  205. 2130 DATA    93,   255,   138,   217,   128,   251,    10,   114,  1206
  206. 2140 DATA     8,   178,    49,   232,    12,     0,   128,   235,   842
  207. 2150 DATA    10,   138,   211,   128,   194,    48,   232,     1,   962
  208. 2160 DATA     0,   195,   180,     2,   205,    33,   195,   232,  1042
  209. 2170 DATA   248,   255,   172,   138,   208,   128,   250,     0,  1399
  210. 2180 DATA   117,   245,   195,   232,    95,     0,   114,    45,  1043
  211. 2190 DATA   139,    22,   135,     1,    74,   184,     0,    61,   616
  212. 2200 DATA   205,    33,   115,    17,   198,     6,   137,     1,   712
  213. 2210 DATA     1,   139,   242,   232,   220,   255,   190,   100,  1379
  214. 2220 DATA     3,   232,   214,   255,   195,   139,   216,   232,  1486
  215. 2230 DATA    12,     0,   114,     5,   232,    54,     0,   115,   532
  216. 2240 DATA   246,   180,    62,   205,    33,   195,   138,    14,  1073
  217. 2250 DATA   141,     1,   232,    68,     0,     6,    31,   185,   664
  218. 2260 DATA   160,    15,   180,    63,   205,    33,   114,    25,   795
  219. 2270 DATA    61,     0,     0,   116,    20,    46,   254,     6,   503
  220. 2280 DATA   141,     1,    43,   200,   116,     8,   139,   250,   898
  221. 2290 DATA     3,   248,    50,   192,   243,   170,   248,   235,  1389
  222. 2300 DATA     1,   249,    14,    31,   195,   128,    62,   141,   821
  223. 2310 DATA     1,    14,   116,    19,   128,    62,   132,     1,   473
  224. 2320 DATA     1,   117,    10,    38,   160,   139,     1,    58,   524
  225. 2330 DATA     6,   141,     1,   116,     2,   248,   195,   249,   958
  226. 2340 DATA   195,   184,   160,    15,    51,   210,    50,   237,  1102
  227. 2350 DATA   247,   225,   186,   216,    23,     3,   208,   195,  1303
  228. 2360 DATA    50,   219,   172,    60,    48,   114,    20,    60,   743
  229. 2370 DATA    57,   119,    16,    44,    48,   134,   195,    50,   663
  230. 2380 DATA   228,   178,    10,   246,   226,   134,   195,     2,  1219
  231. 2390 DATA   216,   235,   231,    78,   195,   172,   191,   142,  1460
  232. 2400 DATA     1,   185,     6,     0,   242,   174,   117,     6,   731
  233. 2410 DATA   198,    68,   255,     0,   249,   195,   248,   195,  1408
  234. 2420 DATA    60,    97,   114,     6,    60,   122,   119,     2,   580
  235. 2430 DATA    36,    95,   195,   198,     6,   124,     1,    25,   680
  236. 2440 DATA   139,    22,   120,     1,   161,   122,     1,   142,   708
  237. 2450 DATA   216,    14,     7,    51,   246,   191,    56,     8,   789
  238. 2460 DATA    38,   139,    46,   118,     1,   185,    80,     0,   607
  239. 2470 DATA   236,   168,     1,   117,   251,   250,   236,   168,  1427
  240. 2480 DATA     1,   116,   251,   173,   251,   171,    77,   116,  1156
  241. 2490 DATA     8,   226,   237,   209,   229,     3,   245,   235,  1392
  242. 2500 DATA     5,    73,   209,   225,     3,   249,    38,   254,  1056
  243. 2510 DATA    14,   124,     1,   117,   211,    14,    31,   195,   707
  244. 2520 DATA   198,     6,   124,     1,    25,   139,    22,   120,   635
  245. 2530 DATA     1,   161,   122,     1,   142,   192,    51,   255,   925
  246. 2540 DATA   139,    46,   118,     1,   185,    80,     0,   173,   742
  247. 2550 DATA   139,   216,   236,   168,     1,   117,   251,   250,  1378
  248. 2560 DATA   236,   168,     1,   116,   251,   139,   195,   171,  1277
  249. 2570 DATA   251,    77,   116,     8,   226,   233,   209,   229,  1349
  250. 2580 DATA     3,   253,   235,     5,    73,   209,   225,     3,  1006
  251. 2590 DATA   241,   254,    14,   124,     1,   117,   209,   195,  1155
  252.